Mobiclic 48/MOBICLIC 48.ISO/pc/DATA/COMMUNS/MENUBD.DIR/00039_Script_BOUCLE_INITIALE

Text File | 2002-07-23 | 1KB | 53 lines

global validMBD,rollMessBD,fermeMenuBD, ouvreMenuBD
global  gNbStamps, gfirstStampTrackNo
global gL_bornes_Ekerre_R
-----------------------------------------------
on exitFrame
  cursor -1
  set r = rollOver()
  repeat with i=gfirstStampTrackNo to gfirstStampTrackNo + gNbStamps - 1
    zeNoItem = i - gfirstStampTrackNo + 1
    if rollOver(i) and validMBD[zeNoItem]=1 then
      member("item").text = string(i)
      rollMessBD = member("menuBDMsg").line[zeNoItem]
      go frame string(zeNoItem+1)
      exit
    end if
  end repeat
  rollMessBD  = "nul"
  if fermeMenuBD=1 then
    fermerMenu
  else
    if r<>0 then
      go the frame
    else
      fermerMenu
    end if
    u = the mouseH
    case(u < gL_bornes_Ekerre_R[1]) of
      1:
        go "1"
      0:
        case(u < gL_bornes_Ekerre_R[2]) of
          1:
            go "2"
          0:

            case(u < gL_bornes_Ekerre_R[3]) of
              1:
                go "3"
              0:
                case(u < gL_bornes_Ekerre_R[4]) of
                  1:
                    go "4"
                  0:
                    go "1"
                end case

            end case
        end case
    end case
  end if

end
----------------------------------------------